/* GET INLINE FILENAME */
call open(place, 'env:filequery')
wher = readln(place)

lng = LENGTH(wher)
x = lng - 2
fileB = SUBSTR( wher , 2 , x )
file = SUBSTR( wher , 2 , x ) 
parse var file ':' temp
if temp="" then temp=x
do forever
parse var temp FileName '/' temp
if temp ="" then break
end
cap = '">'
capb = '" ALIGN=top>'
capc = '" ALIGN=middle>'
capd = '" ALIGN=bottom>'
str1 = '<IMG SRC="pics/'
str2 = '<IMG SRC="'
str9 = '<A HREF="'
ADDRESS 'AV.REXX'
SETVAR inline FileName
SETVAR INLN1 str1
SETVAR INLN2 str2
SETVAR endcap cap
SETVAR sub1 capb
SETVAR sub2 capc
SETVAR sub3 capd
SETVAR PATH1 fileB
SETVAR aw str9
SETVAR exfile fileB